5 DQ=PEEK(186)
10 A=A+1:IFA=1THENLOAD"MOVEIT.O",DQ,1
20 POKE808,239:POKE792,193
30 POKE53280,.:POKE53281,.
40 PRINT"[147][159]     [196]ISPUTE?'S [199]AZELLE PRESENTS:"
50 PRINT"     [195][207][205][205][207][196][207][210][197] 64/128 [196][201][211][203] [197][210][193][211][197][210]"
60 PRINT"[129]           [160][194]Y [205]IKE [205]AYNARD"
70 PRINT"[149]  [195]OPYRIGHT 1987, [206]O RIGHTS RESERVED"
80 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
90 PRINT"    [208]ROCEEDING TO ERASE YOUR DISK ..."
100 PRINT"[158]                                        ";
110 PRINT"     [196]O NOT PRESS THE [210][213][206]/[211][212][207][208] KEY!     ";
120 PRINT"                                        "
122 MM$=""
125 OPEN15,DQ,15:OPEN8,DQ,8,"#"
130 FORTR=1TO35
135 PRINT#15,"U1:8 0"TR;.
140 PRINTMM$"[197]RASING [212]RACK:"TR
150 GOSUB200:NEXT
160 CLOSE8:CLOSE15
170 PRINT"[154][215]OULD YOU LIKE TO ERASE ANOTHER?"
175 PRINT"([209][154],[210][154],[217][154],[212][154],[206][154],[[210][197][212][213][210][206][154]])?":POKE198,.
180 GETA$
185 IFA$<>"Q"ANDA$<>"R"ANDA$<>"Y"ANDA$<>"T"ANDA$<>"N"ANDA$<>CHR$(13)THEN180
190 IFA$="N"THEN6000
195 PRINT"[207]K, HERE GOES ...":FORA=1TO1000:NEXT:GOTO20
200 IFPEEK(145)<>127THENRETURN
205 CLOSE8:CLOSE15:POKE53280,PEEK(162):POKE53281,PEEK(162)
210 FORDD=1TO100:POKE53270,PEEK(53270)OR16
215 R=PEEK(162)
220 IFR>100THENPOKE53265,PEEK(53265)OR32
230 IFR<100THENPOKE53265,PEEK(53265)AND255-32
240 AD=INT(RND(0)*980)+1024
250 SYS49152,57344,57344+20,AD
255 SYS49152,40960,40960+20,AD+54272
260 NEXT
270 FORA=1TO500:IFPEEK(145)=127THEN290
280 NEXT
290 POKE53265,PEEK(53265)AND255-32
300 POKE53270,PEEK(53270)AND255-16
305 POKE53270,PEEK(53270)AND255-8
310 FORA=1TO1500:NEXT
315 POKE53270,PEEK(53270)OR8
320 POKE53280,14:POKE53281,6
330 PRINT"[147]"CHR$(142)"[154]    **** COMMODORE 64 BASIC V2 ****"
340 PRINT" 64K RAM SYSTEM  38911 BASIC BYTES FREE"
350 PRINT"READY.":POKE204,.
360 FORA=1TO4500:NEXT
370 A$="I TOLD YOU NOT TO PRESS RUN/STOP!!"
380 FORA=1TOLEN(A$):PRINTMID$(A$,A,1);
390 FORB=1TO10:NEXTB,A
400 FORA=1TO4500:NEXT:POKE204,1:GOTO20
6000 OPEN15,DQ,15,"R0:CONNECT=CONNECT":INPUT#15,ER:CLOSE15:IFER<>63THENEND
6010 POKE808,237:POKE792,71:LOAD"CONNECT",DQ
59999 END
60000 D=PEEK(186):OPEN1,D,15,"I0":N$="DISK ERASER"
60001 PRINT#1,"S0:"+N$:CLOSE1:SAVEN$,D:END